home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
tbbs
/
prgsourc.zip
/
HOMES.ZIP
/
PEXT.PRG
< prev
next >
Wrap
Text File
|
1996-01-07
|
2KB
|
80 lines
PROCEDURE pext
PRIVATE x
DECLARE aext[15]
aext[1] = "Aluminum siding "
aext[2] = "Brick "
aext[3] = "Brick and Siding "
aext[4] = "Brick and Stone "
aext[5] = "Concrete block "
aext[6] = "Hardboard siding "
aext[7] = "Log and Mortar "
aext[8] = "Shingle, asbestos"
aext[9] = "Shingle, wood "
aext[10] = "Stone "
aext[11] = "Stone and Shingle"
aext[12] = "Stucco "
aext[13] = "Timber and Stucco"
aext[14] = "Vinyl siding "
aext[15] = "Wood siding "
SET COLOR TO GR+/R
@ 21,0 CLEAR TO 23,79
@ 21,5 SAY "Up/Dn Arrow "
@ 22,5 SAY "<Enter> "
SET COLOR TO W+/R
@ 21,17 SAY "= Move within pick list"
@ 22,13 SAY "= Select from pick list"
SET COLOR TO BG/BG
@ 3,49 CLEAR TO 19,69
SET COLOR TO N/BG
@ 3,49 TO 19,69
x = 1
DO WHILE x <= 15
@ x+3,51 SAY aext[x]
x = x + 1
ENDDO
SET COLOR TO GR+/BG
@ 4,51 SAY aext[1]
x = 1
DO WHILE .T.
key = InKey(0)
DO CASE
CASE LastKey() = 5 && <Up Arrow>
IF x = 1
LOOP
ENDIF
SET COLOR TO N/BG
@ x+3,51 SAY aext[x]
x = x - 1
SET COLOR TO GR+/BG
@ x+3,51 SAY aext[x]
LOOP
CASE LastKey() = 13 && <Enter>
REPLACE exterior WITH aext[x]
SET COLOR TO N/N
@ 3,49 CLEAR TO 19,69
EXIT
CASE LastKey() = 24 && <Dn Arrow>
IF x = 15
LOOP
ENDIF
SET COLOR TO N/BG
@ x+3,51 SAY aext[x]
x = x + 1
SET COLOR TO GR+/BG
@ x+3,51 SAY aext[x]
LOOP
ENDCASE
ENDDO
RELEASE aext
RETURN